home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / WIN / VB_SYS / WLIB10.ZIP / WINGLIB.SRC < prev    next >
Encoding:
Text File  |  1994-01-23  |  1008 b   |  31 lines
  1. Option Explicit
  2. Declare Function DiskFreeSpace& Lib "WINGLIB.DLL" (ByVal Drive%)
  3. Dim DriveNbr As Integer
  4. Dim FreeSpace As Long
  5. Dim FreeSpaceKB As Long
  6.  
  7. Sub ButtonExit_Click ()
  8.     End
  9. End Sub
  10.  
  11. Sub Drive1_Change ()
  12.     Screen.MousePointer = 11
  13.     DriveNbr = Asc(UCase(Drive1.Drive)) - 64    'Change Drive Letter to Number
  14.     FreeSpace = DiskFreeSpace(DriveNbr)         'Call "WINGLIB.DLL"
  15.     FreeSpaceKB = FreeSpace& / 1024             'Compute KB
  16.     LabelSpace1.Caption = Format$(FreeSpace, "###,###,##0")
  17.     LabelSpace2.Caption = Format$(FreeSpaceKB, "###,###,##0")
  18.     Screen.MousePointer = 0
  19. End Sub
  20.  
  21.  
  22. Sub Form_Load ()
  23.     DriveNbr = Asc(UCase(Drive1.Drive)) - 64    'Change Drive Letter To Number
  24.     FreeSpace = DiskFreeSpace(DriveNbr)         'Call "WINGLIB.DLL"
  25.     FreeSpaceKB = FreeSpace / 1024              'Compute KB
  26.     LabelSpace1.Caption = Format$(FreeSpace, "###,###,##0")
  27.     LabelSpace2.Caption = Format$(FreeSpaceKB, "###,###,##0")
  28.     Exit Sub
  29. End Sub
  30.  
  31.